home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
015
/
okidatadump
/
init.asm
< prev
next >
Wrap
Assembly Source File
|
1995-03-17
|
2KB
|
87 lines
**** initialization for Okidata ML 92 *****************************
SECTION printer
*---- Included files ----------------------------------------------
INCLUDE "exec/types.i"
INCLUDE "exec/nodes.i"
INCLUDE "exec/lists.i"
INCLUDE "exec/memory.i"
INCLUDE "exec/ports.i"
INCLUDE "exec/libraries.i"
INCLUDE "macros.i"
*---- Imported Functions ------------------------------------------
XREF_EXE CloseLibrary
XREF_EXE OpenLibrary
XREF _AbsExecBase
XREF _PEDData
*---- Exported Globals --------------------------------------------
XDEF _Init
XDEF _Expunge
XDEF _Open
XDEF _Close
XDEF _PD
XDEF _PED
XDEF _SysBase
XDEF _GfxBase
*******************************************************************
SECTION printer,DATA
_PD DC.L 0
_PED DC.L 0
_SysBase DC.L 0
_GfxBase DC.L 0
*******************************************************************
SECTION printer,CODE
_Init:
MOVE.L 4(A7),_PD
LEA _PEDData(PC),A0
MOVE.L A0,_PED
MOVE.L A6,-(A7)
MOVE.L _AbsExecBase,A6
MOVE.L A6,_SysBase
LEA GLName(PC),A1
MOVEQ #0,D0
CALLEXE OpenLibrary
MOVE.L D0,_GfxBase
BEQ initGLErr
MOVEQ #0,D0
pdiRts:
MOVE.L (A7)+,A6
RTS
initGLErr:
MOVEQ #-1,D0
BRA.S pdiRts
GLName:
DC.B 'graphics.library'
DC.B 0
DS.W 0
*----------------------------------------------------------------
_Expunge:
MOVE.L _GfxBase,A1
LINKEXE CloseLibrary
*----------------------------------------------------------------
_Open:
_Close:
MOVEQ #0,D0
RTS
END